home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 03 / 8 / DISK0386.ZIP / MINMAX.FOR < prev    next >
Text File  |  1985-05-02  |  492b  |  20 lines
  1. $STORAGE: 4
  2. $DO66
  3.       SUBROUTINE MINMAX(NARRAY,N,MAX,MIN,IMAX,IMIN)
  4. C                       FINDS THE MINIMUM AND MAXIMUM VALUES, AND
  5. C     SUBSCRIPTS THEREOF, IN A ONE-DIMENSIONAL ARRAY.
  6. C
  7.       DIMENSION NARRAY(N)
  8.       MAX = -100000000
  9.       MIN =  100000000
  10.       DO 10 I=1,N
  11.       NREF = NARRAY(I)
  12.       IF(NREF.GT.MAX) IMAX = I
  13.       IF(NREF.GT.MAX) MAX = NREF
  14.       IF(NREF.LT.MIN) IMIN = I
  15.       IF(NREF.LT.MIN) MIN = NREF
  16. 10    CONTINUE
  17.       RETURN
  18.       END
  19.  
  20.